home *** CD-ROM | disk | FTP | other *** search
- #%DESCRIPTION%|=|Checks user's ICQ online/offline status, if avaliable
- #%USER%|?|Igor Afanasyev|Enter user's name or nick-name
- #%UIN%|?|8275592|Enter user's ICQ UIN number
- #%TITLE%|=|ICQ #%UIN% (%USER%) status
- #%MESSAGE%|=|%1
-
- # ------------------------------------------------------------------------------
- # ICQ STATUS CHECK script by A.I.Studio / Igor Afanasyev
- # ------------------------------------------------------------------------------
-
- require 'http.lib';
-
- # ------------------------------------------------------------------------------
-
- $User = $ENV{'USER'};
- $Uin = $ENV{'UIN'};
-
- # ------------------------------------------------------------------------------
-
- $c = &HttpGet('online.mirabilis.com',80,"/scripts/online.dll?icq=$Uin&txt",always);
- ($c != 0) && &ERR("Can't retrieve user status");
-
- $msg = "$User is <B>$HttpHeader</B>";
- ($HttpHeader eq 'NA') && ($msg = "$User doesn't permit to view his(her) ICQ status");
-
- &MSG("$msg");
-